home *** CD-ROM | disk | FTP | other *** search
- 0 REM -- FILENAME: "EXIT".
- 10 CLR:Y=FRE(0):Z=FRE(0):IFY=ZTHENPRINT"[147][195]128 [208]ROGRAM [212]ERMINATED...":NEW
- 20 CLR:IFST<>64ANDST<>0THENPRINT"[147]";:SYS58792:PRINT"[154]STATUS =";ST:NEW
- 30 CLR:DN=PEEK(186):IFDN<8THENDN=8
- 40 POKE162,0:WAIT162,128
- 50 PRINT"[147]";:SYS58792:POKE53280,0:POKE53281,0:POKE646,5:POKE53265,0
- 60 CLOSE1:OPEN1,DN,15:CLOSE1:OPEN1,DN,15,"UJ":CLOSE1:OPEN1,DN,15,"I0":CLOSE1
- 70 DATA 169,000,133,251,169,008,133,252
- 80 DATA 169,000,168,145,251,200,196,251
- 90 DATA 208,249,230,252,169,250,197,252
- 100 DATA 208,238,032,226,252,096
- 110 RESTORE:CS=0:FORX=1TO30:READZ:CS=CS+Z:NEXTX:IFCS<>5354THEN260
- 120 RESTORE:FORX=828TO857:READZ:POKEX,Z:NEXTX:PRINT"[147]"+CHR$(142):POKE214,7
- 130 PRINT:PRINTTAB(9);" [164][164][164][164] [164][164]"
- 140 PRINTTAB(9);" [206] [164][164] [205][164][164] [164][164][164][164][164] [206] [206]"
- 150 PRINTTAB(9);" [206] [164][164] [206] [206] [206] [206] [164] [205][206] [206]"
- 160 PRINTTAB(9);" [206] [170][164][206] [206] [170][164][206] [206] [164][164][206][164][206]"
- 170 PRINTTAB(9);"[170][164][164][164][164][164][206][205][164][164] [206][205][164][164][164]([164])"
- 180 PRINTTAB(9);" [167][164][164][164][164][206]"
- 190 PRINT:PRINT:PRINTTAB(8);"[158]--= EXITING TO BASIC =--":POKE53265,27
- 200 POKE162,0:WAIT162,128:POKE162,0:CLOSE1:OPEN1,DN,15:CLOSE1
- 210 OPEN1,DN,15,"UJ":INPUT#1,N$,E$,T$,S$:CLOSE1:IFE$<>"CMD RD DOS V1.40"THEN230
- 220 DN=9:CLOSE1:OPEN1,8,15,"S-D":POKE162,0:WAIT162,128:CLOSE1
- 230 CLOSE1:OPEN1,DN,15,"U0>M0":CLOSE1:OPEN1,DN,15,"I0":CLOSE1
- 240 CLR:POKE162,0:WAIT162,128:SYS828
- 250 STOP
- 260 SYS58792:PRINT"[147][150]DATA STATEMENT ERROR![154]":PRINT"CHECKSUM SHOULD BE 5354;"
- 270 PRINT"CHECKSUM REALLY IS";CS:PRINT:PRINT"[150]ABORTED![154]";:CLR:POKE198,0:END
- 280 STOP
- 290 END
-